PC Format (UK) 124/pcfcd124-a.iso/PCF Shareware.dxr/00009_go to the frame.ls

Text File | 2001-05-22 | 435 b | 19 lines

on enterFrame
  if sprite(5).blend < 100 then
    sprite(5).blend = sprite(5).blend + 2
  end if
  if sprite(5).blend = 100 then
    set the locH of sprite 6 to the locH of sprite 6 - 2
  end if
  if (the width of sprite 6 < 376) and (the locH of sprite 6 < 57) then
    set the locH of sprite 6 to 57
  end if
  if the locH of sprite 6 < -600 then
    set the locH of sprite 6 to 200
  end if
end

on exitFrame me
  go(the frame)
end